home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / TUNNEL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  512 b   |  15 lines
  1. 100  '**********************************
  2. 110  '**          TUNNEL              **
  3. 120  '**********************************
  4. 130  SCREEN 2 : CLS
  5. 140  FOR X = 20 TO 0 STEP -0.4
  6. 150  LINE (X*16,X*5)-(639-(X*16),199-(X*5)),1,B
  7. 160  NEXT X
  8. 170  FOR X = 19.8 TO 0 STEP -0.4
  9. 180  LINE (X*16,X*5)-(639-(X*16),199-(X*5)),0,B
  10. 190  NEXT X
  11. 200  FOR X = 19.8 TO 0 STEP -0.4
  12. 210  LINE (X*16,X*5)-(639-(X*16),199-(X*5)),1,B
  13. 220  NEXT X
  14. 230  GOTO 170
  15.